date
for k in 1 2 3 4 5 6 7 8 9 10
do
time serltst < serial_$1.inp >>& serial_$1.out
done
